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CCCCCCCC HH HH MM MM MM MM RRRRRRRR KK KK CCCCCCCC OHH HH GGGGGGGG 
cccccccc HH HH MM MM MM MM RRRRRRRR KK KK CcCCCCCC =H HH GGGGGGGG 

cc HH HH MMMM MMMM MMMM MMMM ORR RR KK KK CC HH HH GG 

cc HH HH MMMM MMMM MMMM MMMM ORR RR KK KK CC HH HH GG 

CC HH HH MM MM MM MM RR RR KK KK cc HH HH GG 

cc HH HH MM MM 4M MM MM MM ORR RR KK KK CC H HH GG 

cc HHHHHHHHHH = MM MM MM MM RRRRRRRR KKKKKK cc HHHHHHHHHH GG 

cc HHHHHHHHHH =MM MM MM MM RRRRRRRR KKKKKK cc HHHHHHHHHH = GG 

CC HH HH MM MM MM MM RR RR KK K cc HH HH GG G6GGGGG 

cc HH HH MM MM MM MM RR RR KK KK CC HH HH GG 6GGGGGG 

cc HH HH MM MM MM MM RR RR KK KK CC HH HH GG GG 

cc HH HH MM MM MM MM RR RR KK KK CC HH HH GG GG 
CCCCCCCC HH HH MM MM MM MM RR RR KK KK cccccccc HH HH 66GG6G 
CCCCCCCC «OHH HH MM MM MM MM RR RR KK KK cccccccC HH HH GGGGGG 
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4 ZTITLE ‘EDTSCHMMRKCHG = track changes in current | Line’ 

MODULE EDTSCHMMRKCHG ( ' Track gnen es in current Line 
Pao. # *v04-000' File: CHMMRKCHG.BLI Edit: JBS2024 

= 

: BEGIN 
: i eee ee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeereeeerereenenereeneenteeeteeeeeeeterte 

'® 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED “rr A LICENSE AND MAY BE USED AND gt 
'® ONLY IN ACCORDANCE WITH THE ra a OF SUCH it AND WITH THE 
'® INCLUSION OF THE ABOVE se Sooure OTICE. THIS SOFTWARE OR ANY OTHER 

!® COPIES THEREOF MAY NOT BE P OVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
® 
® 
+d 
® 
* 
® 
® 
ie TRANSFERRED. . 
* 
® 
® 
*® 
® 
® 
® 
® 
® 
* 
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eee 

; 5 

; 6 1 

: 7 1 

; 8 1 

; 3 1 

: 10 1 

a : 

; 18 1 

: 14 1 

; 1 

; 16 1 

; 17 1 

: 45 : 

: 20 1 i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

: 21 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

: 8 1 is CORPORATION. | 
; 24 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

; $2 9 ! - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
: 7 i 

2 28 0 f ponnenashadeebeshetemabdansannsaneeseeeaaaiababaenbedeabananbenieenaeebands 
rs ' | 
; $6 0030 1 

oe) 0031 1 !++ 

: $ O08 : FACILITY: EDT == The DEC Standard Editor 

; 3% 0034 1 | ABSTRACT: | 
2 0035 1! | 
5; & 0036 1! This module keeps track of the bounds between which the 
: 38 oof : current Line must be updated. | 
: io st : ENVIRONMENT: Runs at any access mode - AST reentrant | 
; 41 9041 ; AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

; 03 0043 1 ' MODIFIED BY: | 
: 66 044 1! 

ieee 045 1 ! 2-001 = Recode to interface to the new screen updater. JBS 13-Sep-1982 

: 46 0046 1 ! 2-002 - Version 2-001 was just a stub. This version is Little better: 

; 67 0047 1! it always marks the Line for reeg int ine. JBS 17-Sep-1982 

: re sk: : 2-003 - ras 2050p for 198s Lines and for skipping over deleted Lines. 

: 50 0050 1 ! 2-004 - he target Line having a deleted neighbor. IBS 20-Se -1982 

; 0051 1 ! 2-005 ~ fall "eDTSSSC. -FNDREC, which contains the table searching co 24-Sep-1982 

:- Bes 1: 35 - Record the actual edits to a line, instead of just mar — ti Pe repaint. JBS 28-Sep-1982 

“Eee 0055 1 ! 2-007 = Change the parameters to SC _FNDREC. SMB 28-Sep-19 

: «(54 0054 1 ! 2-008 - Put in temporary zeroing of screen buffer printer, ye 30-Sep-1982 

;. te 1 ! 2-009 = Remove yesterday’ “s temporary change, sy. BT-6 Oct-198 

; 056 1! 2-010 - Change the way SC_FNDREC is used. SMB 08-Oct-1982 

s of 0057 1 § 2-011 = Don't run off theend of the edit buffer, and 5 ES SCR_EDIT_POS. JBS 18-Oct-1982 
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: 8 O038 1! 2- 3 - Turn insert followed by delete into a null operation. 495 24-0¢ t-1982 

3 9 BR? 1! 2-015 = Fix problems involving marking deleted characters. JBS 24-Oct-1982 

: 60 060 1 ! 2-014 - If we free the first screen pointer. up : e EDTSSA_FST_SCRPTR. 

; 6) 0061 1! 2 - Maintain SCR_EDIT_MINPOS. JBS 28-0ct- 

:; 6 O06¢ 1 ! 2-016 = Use EDTSSSC_CNDEL to free Line blocks. JBS go-Ocr~1962 

; 6 0065 1! 2-017 = Fix a bad LOCAL declaration. SMB 31-0ct-198 

s 64 0064 1 ! 2-018 - Maintain MINPOS, even if we must repaint, to avoid extra Copy rat ts 

; 69 0065 1! f we overflow the edit buffer, which is Likely on the PDP-11. JBS 01-Dec-1982 
>; 66 0066 1! 5-033 - Maintain MINPOS even if the previous edit is a repaint. JBS 04-Dec-1982 
co) Or 0067 1 ! 2-020 - If we are editing the first character of a continuation Line, mark the 

: 68 0068 1! previous Line as et po etn at its end, in case we are inserting 
; 69 88 , 3@ a character before a wide ¢c eregter that panes really be painted at the 
i 070 1! end of the previous line. JBS 20-Dec-198 

Oe 0071 1! $-8 1 = Remove the edit buffer. JBS 27-Dec-1982 

5 72 0072 1 ! 2-022 - If we delete an inserted continuation or continued Line, 

ce 0073 1! rebuild the screen data structure. JBS 05-Jan-1983 

; 0074 1 ! 2-023 - If we are going to rebuild the screen data structure, 

: 75 0075 1! don't yeeste anyen ie . JBS 17-Feb-19 

3 76 $058 : 2-024 = Set EDTSSG_ANY_CHANGES if any changes. JBS 05-Apr-1983 

: 78 0078 1 
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| 04-600 Declarations : 14-S ats ri 99:95:35 fepT.src CHMMRKCHG.BLI; ae 

5 £0 444 } SBTTL ‘Declarations’ 

: es a8 1 ! TABLE OF CONTENTS: 

; §& ¢ 1! 

; «84 00 1 : 

; #4 03 4 REQUIRE "EDTSRC:TRAROUNAM'; 

s 87 524 1 FORWARD ROUTINE 

; 4 be 5 : EDTSSMRK_LNCHG : NOVALUE; ! Mark changes in the current Line 

Poo ee Ot FV acca ens 

§ 4 §3 g 1! 

ss = 0530 1 

: 94 0531 1 REQUIRE ‘EDTSRC:EDTREQ'; 

s 9 0666 1 

; © 0667 1! 

; 97 0668 1 ! MACROS: 

; 0669 1! 

; 2299 0670 1! NONE 

: 100 0671 1! 

: 101 067 1 ! EQUATED SYMBOLS: 

; Ie 0673 1! 

; 10 0674 1! NONE 

: 104 0675 1! 

; 105 0676 1 ! OWN STORAGE: 

: 106 0677 1! 

: 107 0678 1! NONE 

: 108 0679 1! 

; 109 0680 1 ! EXTERNAL REFERENCES: 

3; 110 0681 1! 

s. 9% 0682 1! In the routine 


- 
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ZSBTTL "EDTSSMRK_LNCHG = mark changes in the current Line’ 


GLOBAL ROUTINE EDTSSMRK_LNCHG ( ! Mark eo in the current Line 
!' Change code 
POSITION i Position in the record 
) : NOVALUE = 


oO mm 
ao oo 
o —-— 
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(C2 0D CD CD CD CD: 


++ 
FUNCTIONAL DESCRIPTION: 


feep track of edits done to Lines on the screen, so the screen 
updater can repaint them. 


FORMAL PARAMETERS: 


Oooo 
AAO 
oooo 


CODE The type of edit: delete Line or modify 
POSITION The position in the record at which the operation takes place 


' 

: 

i 

i IMPLICIT INPUTS: 

i EDTS$$A_SCR_BUF 

i EDT$$A~CUR-BUF 

; EDT$$G~SCR-REBUILD 
! IMPLICIT OUTPUTS: 

' 

& 


EDTS$$G_LN_CHGD 
EDT$$G_SCR_REBUILD 


! ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
EXTERNAL ROUTINE 


EDTSSSC_FNDREC, 
EDT$S$SC~LNDEL : NOVALUE; 


Find a record in the screen data base 
Free a record from the screen data base 
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EXTERNA 
EDTSSA_SCR_BUF, 
EDTSSA_CUR_BUF : REF TBCB_BLOCK, ' Pointer to the current text buffer control block 
EDT$$G_LN_CHGD, ' The current record has been changed 
EDT$$G_SCR_REBUILD, ! | = the screen data base has to be rebuilt 
EDTSS$G_ANY_ CHANGES; ! 1 = an edit has been made since last screen update 
LOCAL . 
DISP ! Displacement from cursor screen pointer 
SCRPTR : REF SCREEN _LINE, ! Pointer to our screen Line 
RECORD_NO : LN_BLOCR, ' Record number of our screen Line 
EDIT_CODE, ! Do this to this record 
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RK_LNCHG = mark changes in the current | 14-Sep-19 DT.SRCICHMMRKCHG.BLI; (3) 


$m 
REL_POS ! Position in this Line 
MIN-RELPOS; ! Minimum edit position on this Line 
+ 
! Make sure the work file system knows that the current record has been 
4 
3 
6 
4 
4 
3 


<m 
FS 


changed, so it will write the record back to the work file system. 
EDTS$G_LN_CHGD = 1; 
i Note for the screen updater that an edit has been made. If this cell is still zero 
! when the screen updater is called, the screen updater will not search the screen 
i data base for lines to repaint. fh 
EDTSSG_ANY_CHANGES = 1; 


If we are going to rebuild the screen data base anyway, don't bother to update it. 


is improves the speed of the arrow keys. 


WO CONOUSWwNO 


IF .EDTS$G_SCR_REBUILD THEN RETURN; 


'¢ 
Point to the current Line in the screen data base. 


ASSERT (.POSITION LEQ 255); 
SCRPTR = EDTS$SC_FNDREC (.POSITION, DISP); 


'¢ 
} If the Line is not in the screen data base, just return. 


MEWN—O”O 


IF (.SCRPTR EQLA 0) THEN RETURN; 
'¢ 
Check for delete of an inserted line. It is very special. 
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EDIT_CODE = .CODE; | 
ae ate EQL SCR_EDIT_DELLN) AND ((.SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_INSLN) NEQ 0)) 
BEGIN 


i We are deleting an inserted Line, Back out the insert so that 
: the screen updater will see nothing. 
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LOCAL 
NEXT_SCRPTR : REF SCREEN_LINE; 


'¢ 
: If this is a continued or continuation Line, rebuild the screen data base. 


IF (.SCRPTR CSCR_LINE_IDX] NEQ 0) 
THEN 


BEGIN 
EDTS$G_SCR_REBUILD = 1; 
RETURN; 

END; 
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104-000 EDISEMRK CNCHG = mark changes in the current | 12286871382 99:95:35 YEDT SREICHMMAKCHG.BL I: . (3) 

: 7 797 ; 

; 8 3 ; NEXT_SCRPTR = .SCRPTR CSCR_NXT_LINE); ‘ 

: 230 B00 IF (.NEXT_SCRPTR NEQA 0) ; 

; 1 0801 3 s : 

: ¢ Bans ? BEGIN : 

> 236 0804 5 IF_(.NEXT_SCRPTR CSCR_LINE_IDX] NEQ 0) Ey 
: 5 0805 4 THEN a? 
3 8308 BEGIN 4 
; 080 EDT$$G_SCR_REBUILD = 1; >} 
; 8 Bae RETURN; 3 | 
; 9 OY 4 END; 4 
; 240 0810 4 ) 
3 } pet, END; ] 
; rk 0813 EDTS$SC_LNDEL (.SCRPTR); 3; | 
3 4G 0814 RETURN; et) 
; 245 0815 END; ; 
i Meg. i] 
: see ths Maintain the record of the minimum edit position. ; 1 
; $36 0820 REL_POS = .POSITION - .SCRPTR CSCR_CHR_FROM]; ; 
3 go) 0821 MIN_RELPOS = MINU (.REL. 9S, .SCRPTR CSCR_EDIT_MINPOS)); oi 
; $2¢ 08 § SCRPTR SCR_EDIT MINPOSS = ,MIN_RELPOS; ; 
; 3 Bes? ,, SCRPTR CSCRIEDITIMAXPOS) = 255; : 
; $36 0825 i If we are editing at the front of a continuation Line, mark the previous Line as needing ea] 
; 256 0826 2! an edit at its end. This is in case we are gap dey F- narrow character in front of a ; ; 
3 eH e434 2 } wide character; the narrow character may want to be displayed at the end of the previous ‘ine. : 
: 259 0839 ; a4 
; 260 0830 3 IF ((.REL_POS EQL 0) AND (.SCRPTR CSCR_CHR_FROM] NEQ 0)) | : 
i 368 OB3e 2 EDTSSMRK_LNCHG (SCR_EDIT_MODIFY, .POSITION = 1); | ; 
: $e 083, 5 1 | : | 
; $08 ob? Mark the edit for this Line. | : 
Py ._- | om 

; 267 0857 |, SCRPTR CSCR_EDIT_FLAGS] = .SCRPTR CSCR_EDIT_FLAGS] OR .EDIT_CODE: | : 
: $69 0839 i after any edit to a Line, mark all subsequent Lines for the e 
; $f0 bees ! same record for repainting. This means that in NOTRUNCATE mode, a4) 
.) ore 841 ! if you edit a Line all Later Lines for that record are repainted. . 

: ef, Bees ! This is important even for replaces, since the width of a character | 
. or 084 ! may change. Note that eoteting a Line causes the subsequent e.) 
: 276 0844 ' records to be marked as deleted. eo 4 
: he 1 ‘i: 
; As O84? Se CSCR_CHR_TO) NEQ 255) AND (.SCRPTR CSCR_NXT_LINE] NEQA 0)) DO : 

: 279 49 SCRPTR = .SCRPTR CSCR_NXT_LINE); ; 

> 280 50 SCRPTR (SCR_EDIT_MINPOS) = 0; ; 

; (281 51 SCRPTR [SCR-EDIT-MAXPOS) = 255; ; 

; 28 0826 SCRPTR CSCRTEDIT-FLAGS) = .SCRPTR CSCR_EDIT_FLAGS] OR .EDIT_CODE; : 

: 2 085 END; ' Repaint Later lines for this record : 
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04-000 EDTSSMRK_LNCHG = mark changes in the current | 12-Sep-19 4 99:95:35 EDT.SRCICHMMRKCHG.BLI; . (3) V04- 
: 286 pee : 
; 285 55 END; ! of routine EDTSSMRK_LNCNG 

-TITLE EDTSCHMMRKCHG EDTSCHMMRKCHG = track changes in 
; current Line 

- IDENT \Vv04-000\ 

EXTRN EDTSS$SC FNOREC. EDTSSSC_LNDEL 

-EXTRN EDTSSA_SCR_BUF, EDTS$A_CUR_BUF 

EXTRN EDT$$G_LN_CHGD, EDT$$G_SCR_REBUILD 

EXTRN EDT$$G_ANY _ CHANGES 

EXTRN EDTSSIANTER-ERR 


~PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


a? 

.*) 

sc 4 

24 

Si 4 

. 4 

ae 

eo 

| 

>” 4 

oe 

4 

2 

001¢ 00000 .ENTRY EDTSSMRK_LNCHG, Save R2,R3,R4 : 0685 4 

54 000000006 00 H 90002 MOV EDT$$G_SCR_REBUILD, R4 : . 4 

5E 0C C2 0000 SUBL He, p : : 4 

000000006 00 01 00 9000¢ MOVL  EDTSSG_L N_CHGD > 0747 ee 
000000006 00 01 00 0001 MOVL EDT$$G~ “ANT CHANGE 5 : 0753 3; 1 
01 64 c9 O001A BLBC ri: SED! SCRIREBOILD, : 0758 : 

QOOO00OFF BF 08 AC D1 OOO1E 1$ CMPL POSITION, #255 + 0763 ; | 
07 15 00026 BLEQ : 

000000006 00 00 FB 00028 CALLS #0, EDTSS$INTER_ERR : | a | 
SE DD O002F 2$ PUSHL SP : 0764 | | 

08 AC DD 00031 PUSHL POSITION : Te | 

000000006 00 02 FB 000 CALLS a6. EDTSSSC_FNDREC : : 1 
52 50 o9 00038 MOVL ; | 4 

7D 13 0003 BEQL : 0769 : 1 

53 04 AC D0 00040 MOVL CODE. EDIT_CODE : 0774 | 

04 53 D1 00044 CMPL DIT_CODE,~#4 : 0776) 4 

23 12 90047 BNEQ : 3 j 

1€ OD A2 i 3 0049 BBC I3(SCRPTR) , 5$ : hl 
08 a2 95 OO04E TSTB Bcscr : 0791 a | 

08 12 00051 BNEQ : > | 

50 04 A2 D 90053 MOVL itscrPTA). NEXT_SCRPTR : 0798 | 

09 13 0005 BEQL s : 0800 : 4 

08 ad 93 90039 TSTB = 8(NEXT_SCRPTR) : 0804 4 

04 13 0005¢ BEQL «6s 4S : | 

64 01 v6 0055 3$: MOVL #1, EDT$$G_SCR_REAUILD ; 9807 : 

32 DD 062 4$: PUSHL SCRPTR : $8rs St 

000000006 00 FB 20068 CALLS #1, EDTSS$SC_LNDEL are ; | 
50 09 a2 oR 5$: MOVZBL 9(SCRPTR), REL_P : 0820 ee 

50 08 AC ; C3 0 SUBL3  -REL_POS, BosiTTON: REL_POS ; 4 
51 6 D 7 MOVL = R R1 > 0821 | ae 

51 0B A2 08 9 FD 07 CMP2vV # » TICSCRPTR), R1 : 4 
4 1E& 0007 BGEQU es : | 3 4 

51 0B Ae 9A MOVZBL 11(SCRPTR), R ; | 

08 A 5 20 63: MOVB ant N_RELPOS TT escRPTR) > 0822 | 2 4 

.. g gi MNEGB g(SCRPTR) ; 9 . 4 

0 p C TSTL : 0830. . | 

11 BNEQ : | 4 

09 A2 9 TSTB Siscapray : | 34 
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1 3 

7 08 AC F C8 Boog 

1 OD 9A 

FFSF CF § fe 9C 
OD A2 8 Al 7$: 

FF 8F OA Ad 1 AS 

> -_ AA 

04 A2 05 OOOAC 

OC 13 OOOAF 

52 04 A2 00 00081 

0B A2 FFOO 68F B80 00085 

E4 11 00 


; Routine Size: 190 bytes, Routine Base: _EDTSCODE + 0000 


1 
1 !<BLF/PAGE> 


“8H (B88 


AX-11 Bliss-32 V4.0-74 
EDT. SRCJCHMMRKCHG.BLI; 
» POSITION, =(SP) 
EDTSSMRK_LNCHG 
T CODE, 13¢ gRPTAD 
STRPTRS, #2 
SCRPTR) 


SCRPTR), SCRPTR 
5280, 11(SCRPTR) 


~~, 


NBS Oolo—-mMmz aa 
AD—A-—RHOSTN——w 


Page 


EOT! 
v04: 


ee a a ae ae ae ae A ee A OM OM Oe OA OM OM oe oe Oe Om ee ee me Oe ee ee ee ee ae ee ee me ee 


; Lexemes/CPU-Min: 10409 
. some" Used: 114 pages 
; Compila 
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EDTSCHMMRKCHG EDTSCHMMRKCHG = track changes in current Line 16-Sep-1984 00:04: AX-11 Bliss-32 V4.0-742 Page 9. 
v04-000 EDTSSMRK_LNCHG = mark chokes in the current | 13280 8= 1 3be 03:95:85 LEDT sre CHMMRKCHG.BLI;1 s (4) 
: 289 0858 1 END ! of module EDTSCHMMRKCHG 
396 0859 1 Y 
91 860 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes | 
: _EDTSCODE 190 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC, ALIGN(2) | 
; Library Statistics 
; Secensee FyTRGLG Sevens Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$355$DUA28: CEDT. SRCJEDT 1 32:1 377 44 11 40 00:00.2 
: _$255$0UA28:CEDT.SRCJPSECTS.L32;1 2 1 50 7 00:00.1 
i 
: COMMAND QUALIFIERS 
: Ney ee or Sete INE TIAL APT ERI EE) SMDTRALEDALEAL LSet ESB LHRE CNG / 0B.) =0R IS 1 CPPIRKENS MSRC$: CHMMRKCHG.BLI/UPDATE=(ENHS$:C | 
; Size: 190 code + 0 data bytes 
; Run Time: 00:16.4 
; Elapsed Time: 00:19.8 
3144 | 
| 
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tion Complete 
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